﻿Imports System.Xml
Imports System.IO
'Option Strict On  

Public Class IgolderData
    Dim IW As Integer = Me.Width ' Initial Width
    Dim IH As Integer = Me.Height ' Initial Height
    Private Sub IgolderData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gambarGrafik()
    End Sub

    Private Sub IgolderData_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
        IW = Me.Width
        IH = Me.Height
        canvas.Height = IH - 80
        canvas.Width = IW - 40
        ProgressBar1.Width = IW - 35
        ProgressBar1.Height = 15
    End Sub
End Class
